include file: wrf_histout.inc 1,94 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_histout.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U' , & ! Data Name grid%em_u_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'x-wind component' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field U memorder XZY' , & ! Debug message ids , ide , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( ide, ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V' , & ! Data Name grid%em_v_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north_stag' , & ! Dimname 3 'y-wind component' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field V memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , jde , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( jde, jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'W' , & ! Data Name grid%em_w_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'z-wind component' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field W memorder XZY' , & ! Debug message ids , (ide-1) , kds , kde , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'WW' , & ! Data Name grid%em_ww , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'eta-dot' , & ! Desc 'Pa s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field WW memorder XZY' , & ! Debug message ids , (ide-1) , kds , kde , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH' , & ! Data Name grid%em_ph_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'perturbation geopotential' , & ! Desc 'm{2} s{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field PH memorder XZY' , & ! Debug message ids , (ide-1) , kds , kde , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PHB' , & ! Data Name grid%em_phb , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'base-state geopotential' , & ! Desc 'm{2} s{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field PHB memorder XZY' , & ! Debug message ids , (ide-1) , kds , kde , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( kde, kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T' , & ! Data Name grid%em_t_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'perturbation potential temperature (theta-t0)' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field T memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU' , & ! Data Name grid%em_mu_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'perturbation dry air mass in column' , & ! Desc 'pascals' , & ! Units 'inc/wrf_histout.inc ext_write_field MU memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MUB' , & ! Data Name grid%em_mub , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'base state dry air mass in column' , & ! Desc 'pascals' , & ! Units 'inc/wrf_histout.inc ext_write_field MUB memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU0' , & ! Data Name grid%em_mu0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'initial dry mass in column' , & ! Desc 'pascals' , & ! Units 'inc/wrf_histout.inc ext_write_field MU0 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TKE' , & ! Data Name grid%em_tke_2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'TURBULENCE KINETIC ENERGY' , & ! Desc 'm{2} s{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field TKE memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'P' , & ! Data Name grid%em_p , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'perturbation pressure' , & ! Desc 'pascals' , & ! Units 'inc/wrf_histout.inc ext_write_field P memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PB' , & ! Data Name grid%em_pb , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'BASE STATE PRESSURE AT HALF LEVELS' , & ! Desc 'Pa' , & ! Units 'inc/wrf_histout.inc ext_write_field PB memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'FNM' , & ! Data Name grid%em_fnm , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'upper wieght for vertical stretching' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field FNM memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'FNP' , & ! Data Name grid%em_fnp , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'lower weight for vertical stretching' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field FNP memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDNW' , & ! Data Name grid%em_rdnw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'inverse dn values on full (w) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field RDNW memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDN' , & ! Data Name grid%em_rdn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'dn values on half (mass) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field RDN memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DNW' , & ! Data Name grid%em_dnw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'dn values on full (w) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field DNW memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DN ' , & ! Data Name grid%em_dn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'dn values on half (mass) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field DN memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZNU' , & ! Data Name grid%em_znu , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder '' , & ! Stagger 'bottom_top' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'eta values on half (mass) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field ZNU memorder Z' , & ! Debug message kds , (kde-1) , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZNW' , & ! Data Name grid%em_znw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder 'Z' , & ! Stagger 'bottom_top_stag' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'eta values on full (w) levels' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field ZNW memorder Z' , & ! Debug message kds , kde , 1 , 1 , 1 , 1 , & kms , kme , 1 , 1 , 1 , 1 , & kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , & ierr ) END IF CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CFN' , & ! Data Name grid%cfn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field CFN memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CFN1' , & ! Data Name grid%cfn1 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field CFN1 memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'EPSTS' , & ! Data Name grid%epsts , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field EPSTS memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'Q2' , & ! Data Name grid%q2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'QV at 2 M' , & ! Desc ' ' , & ! Units 'inc/wrf_histout.inc ext_write_field Q2 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T2' , & ! Data Name grid%t2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'TEMP at 2 M' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field T2 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TH2' , & ! Data Name grid%th2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'POT TEMP at 2 M' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field TH2 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'U10' , & ! Data Name grid%u10 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'U at 10 M' , & ! Desc 'm/s' , & ! Units 'inc/wrf_histout.inc ext_write_field U10 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'V10' , & ! Data Name grid%v10 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'V at 10 M' , & ! Desc 'm/s' , & ! Units 'inc/wrf_histout.inc ext_write_field V10 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDX' , & ! Data Name grid%rdx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'INVERSE X GRID LENGTH' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field RDX memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RDY' , & ! Data Name grid%rdy , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'INVERSE Y GRID LENGTH' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field RDY memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RESM' , & ! Data Name grid%resm , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field RESM memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZETATOP' , & ! Data Name grid%zetatop , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'ZETA AT MODEL TOP' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field ZETATOP memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF1' , & ! Data Name grid%cf1 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '2nd order extrapolation constant' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field CF1 memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF2' , & ! Data Name grid%cf2 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '2nd order extrapolation constant' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field CF2 memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CF3' , & ! Data Name grid%cf3 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '2nd order extrapolation constant' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field CF3 memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ITIMESTEP' , & ! Data Name grid%itimestep , & ! Field WRF_integer , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field ITIMESTEP memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QVAPOR' , & ! Data Name grid%moist_2(ims,kms,jms,P_qv) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QVAPOR memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QCLOUD' , & ! Data Name grid%moist_2(ims,kms,jms,P_qc) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QCLOUD memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QRAIN' , & ! Data Name grid%moist_2(ims,kms,jms,P_qr) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QRAIN memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QICE' , & ! Data Name grid%moist_2(ims,kms,jms,P_qi) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QICE memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QSNOW' , & ! Data Name grid%moist_2(ims,kms,jms,P_qs) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QSNOW memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QGRAUP' , & ! Data Name grid%moist_2(ims,kms,jms,P_qg) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 '-' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field QGRAUP memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) END IF CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'LANDMASK' , & ! Data Name grid%landmask , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LAND MASK' , & ! Desc 'flag' , & ! Units 'inc/wrf_histout.inc ext_write_field LANDMASK memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TSLB' , & ! Data Name grid%tslb , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'soil_layers_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'SOIL TEMPERATURE' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field TSLB memorder XZY' , & ! Debug message ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , & ims , ime , 1 , config_flags%num_soil_layers , jms , jme , & ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ZS' , & ! Data Name grid%zs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder 'Z' , & ! Stagger 'soil_layers_stag' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'DEPTHS OF CENTERS OF SOIL LAYERS' , & ! Desc 'm' , & ! Units 'inc/wrf_histout.inc ext_write_field ZS memorder Z' , & ! Debug message 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'DZS' , & ! Data Name grid%dzs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'Z' , & ! MemoryOrder 'Z' , & ! Stagger 'soil_layers_stag' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 'THICKNESSES OF SOIL LAYERS' , & ! Desc 'm' , & ! Units 'inc/wrf_histout.inc ext_write_field DZS memorder Z' , & ! Debug message 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SMOIS' , & ! Data Name grid%smois , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'soil_layers_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'SOIL MOISTURE' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SMOIS memorder XZY' , & ! Debug message ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , & ims , ime , 1 , config_flags%num_soil_layers , jms , jme , & ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SH2O' , & ! Data Name grid%sh2o , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'soil_layers_stag' , & ! Dimname 2 'south_north' , & ! Dimname 3 'SOIL LIQUID WATER' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SH2O memorder XZY' , & ! Debug message ids , (ide-1) , 1 , config_flags%num_soil_layers , jds , (jde-1) , & ims , ime , 1 , config_flags%num_soil_layers , jms , jme , & ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_soil_layers , jps , MIN( (jde-1), jpe ) , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'XICE' , & ! Data Name grid%xice , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SEA ICE' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field XICE memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SMSTAV' , & ! Data Name grid%smstav , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'MOISTURE VARIBILITY' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SMSTAV memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SFROFF' , & ! Data Name grid%sfcrunoff , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SURFACE RUNOFF' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SFROFF memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'UDROFF' , & ! Data Name grid%udrunoff , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'UNDERGROUND RUNOFF' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field UDROFF memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'IVGTYP' , & ! Data Name grid%ivgtyp , & ! Field WRF_integer , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'VEGETATION TYPE' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field IVGTYP memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ISLTYP' , & ! Data Name grid%isltyp , & ! Field WRF_integer , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SOIL TYPE' , & ! Desc ' ' , & ! Units 'inc/wrf_histout.inc ext_write_field ISLTYP memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'VEGFRA' , & ! Data Name grid%vegfra , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'VEGETATION FRACTION' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field VEGFRA memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GRDFLX' , & ! Data Name grid%grdflx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'GROUND HEAT FLUX' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field GRDFLX memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ACSNOW' , & ! Data Name grid%acsnow , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'ACCUMULATED SNOW' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field ACSNOW memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'ACSNOM' , & ! Data Name grid%acsnom , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'ACCUMULATED MELTED SNOW' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field ACSNOM memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SNOW' , & ! Data Name grid%snow , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SNOW WATER EQUIVALENT' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SNOW memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SNOWH' , & ! Data Name grid%snowh , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'PHYSICAL SNOW DEPTH' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field SNOWH memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'CANWAT' , & ! Data Name grid%canwat , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'CANOPY WATER' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field CANWAT memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SST' , & ! Data Name grid%sst , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SEA SURFACE TEMPERATURE' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field SST memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TKE_MYJ' , & ! Data Name grid%tke_myj , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XZY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'south_north' , & ! Dimname 3 'TKE FROM MELLOR-YAMADA-JANJIC ' , & ! Desc 's{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field TKE_MYJ memorder XZY' , & ! Debug message ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , & ims , ime , kms , kme , jms , jme , & ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'THZ0' , & ! Data Name grid%thz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'POTENTIAL TEMPERATURE AT ZNT' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field THZ0 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QZ0' , & ! Data Name grid%qz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SPECIFIC HUMIDITY AT ZNT' , & ! Desc 'kg kg{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field QZ0 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'UZ0' , & ! Data Name grid%uz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'U WIND COMPONENT AT ZNT' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field UZ0 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'VZ0' , & ! Data Name grid%vz0 , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'V WIND COMPONENT AT ZNT' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field VZ0 memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QSFC' , & ! Data Name grid%qsfc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SPECIFIC HUMIDITY AT LOWER BOUNDARY' , & ! Desc 'kg kg{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field QSFC memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'AKHS' , & ! Data Name grid%akhs , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SFC EXCH COEFF FOR HEAT' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field AKHS memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'AKMS' , & ! Data Name grid%akms , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SFC EXCH COEFF FOR MOMENTUM' , & ! Desc 'm s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field AKMS memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MAPFAC_M' , & ! Data Name grid%msft , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Map scale factor on mass grid' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MAPFAC_U' , & ! Data Name grid%msfu , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Map scale factor on u-grid' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message ids , ide , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MAPFAC_V' , & ! Data Name grid%msfv , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north_stag' , & ! Dimname 2 '' , & ! Dimname 3 'Map scale factor on v-grid' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message ids , (ide-1) , jds , jde , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'F' , & ! Data Name grid%f , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Coriolis sine latitude term' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field F memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'E' , & ! Data Name grid%e , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Coriolis cosine latitude term' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field E memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SINALPHA' , & ! Data Name grid%sina , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Local sine of map rotation' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field SINALPHA memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'COSALPHA' , & ! Data Name grid%cosa , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Local cosine of map rotation' , & ! Desc 'dimensionless' , & ! Units 'inc/wrf_histout.inc ext_write_field COSALPHA memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'HGT' , & ! Data Name grid%ht , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'Terrain Height' , & ! Desc 'm' , & ! Units 'inc/wrf_histout.inc ext_write_field HGT memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TSK' , & ! Data Name grid%tsk , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SURFACE SKIN TEMPERATURE' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field TSK memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'P_TOP' , & ! Data Name grid%p_top , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag '0' , & ! MemoryOrder '' , & ! Stagger '' , & ! Dimname 1 '' , & ! Dimname 2 '' , & ! Dimname 3 '' , & ! Desc '-' , & ! Units 'inc/wrf_histout.inc ext_write_field P_TOP memorder 0' , & ! Debug message 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & 1 , 1 , 1 , 1 , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINC' , & ! Data Name grid%rainc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'ACCUMULATED TOTAL CUMULUS PRECIPITATION' , & ! Desc 'MM' , & ! Units 'inc/wrf_histout.inc ext_write_field RAINC memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RAINNC' , & ! Data Name grid%rainnc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'ACCUMULATED TOTAL GRID SCALE PRECIPITATION' , & ! Desc 'MM' , & ! Units 'inc/wrf_histout.inc ext_write_field RAINNC memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GSW' , & ! Data Name grid%gsw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'DOWNWARD SHORT WAVE FLUX AT GROUND SURFACE' , & ! Desc 'W m{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field GSW memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'GLW' , & ! Data Name grid%glw , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'DOWNWARD LONG WAVE FLUX AT GROUND SURFACE' , & ! Desc 'W m{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field GLW memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'XLAT' , & ! Data Name grid%xlat , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc 'degree' , & ! Units 'inc/wrf_histout.inc ext_write_field XLAT memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'XLONG' , & ! Data Name grid%xlong , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc 'degree' , & ! Units 'inc/wrf_histout.inc ext_write_field XLONG memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'LU_INDEX' , & ! Data Name grid%lu_index , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LAND USE CATEGORY' , & ! Desc '' , & ! Units 'inc/wrf_histout.inc ext_write_field LU_INDEX memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'TMN' , & ! Data Name grid%tmn , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc 'K' , & ! Units 'inc/wrf_histout.inc ext_write_field TMN memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'XLAND' , & ! Data Name grid%xland , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc 'NA' , & ! Units 'inc/wrf_histout.inc ext_write_field XLAND memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'HFX' , & ! Data Name grid%hfx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'UPWARD HEAT FLUX AT THE SURFACE' , & ! Desc 'W m{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field HFX memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'QFX' , & ! Data Name grid%qfx , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'UPWARD MOISTURE FLUX AT THE SURFACE' , & ! Desc 'kg m{-2} s{-1}' , & ! Units 'inc/wrf_histout.inc ext_write_field QFX memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'LH' , & ! Data Name grid%lh , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'LATENT HEAT FLUX AT THE SURFACE' , & ! Desc 'W m{-2}' , & ! Units 'inc/wrf_histout.inc ext_write_field LH memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'SNOWC' , & ! Data Name grid%snowc , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XY' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'south_north' , & ! Dimname 2 '' , & ! Dimname 3 'FLAG INDICATING SNOW COVERAGE (1 FOR SNOW COVER)' , & ! Desc 'NA' , & ! Units 'inc/wrf_histout.inc ext_write_field SNOWC memorder XY' , & ! Debug message ids , (ide-1) , jds , (jde-1) , 1 , 1 , & ims , ime , jms , jme , 1 , 1 , & ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , & ierr ) !ENDOFREGISTRYGENERATEDINCLUDE