include file: em_data_calls.inc 14 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_data_calls.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. ! CALL rsl_start_register_f90 CALL rsl_register_f90 ( u_1 ) CALL rsl_register_f90 ( u_2 ) CALL rsl_register_f90 ( ru ) CALL rsl_register_f90 ( v_1 ) CALL rsl_register_f90 ( v_2 ) CALL rsl_register_f90 ( rv ) CALL rsl_register_f90 ( w_1 ) CALL rsl_register_f90 ( w_2 ) CALL rsl_register_f90 ( ww ) CALL rsl_register_f90 ( rw ) CALL rsl_register_f90 ( ph_1 ) CALL rsl_register_f90 ( ph_2 ) CALL rsl_register_f90 ( phb ) CALL rsl_register_f90 ( ph0 ) CALL rsl_register_f90 ( php ) CALL rsl_register_f90 ( t_1 ) CALL rsl_register_f90 ( t_2 ) CALL rsl_register_f90 ( t_init ) CALL rsl_register_f90 ( tp_1 ) CALL rsl_register_f90 ( tp_2 ) CALL rsl_register_f90 ( mu_1 ) CALL rsl_register_f90 ( mu_2 ) CALL rsl_register_f90 ( mub ) CALL rsl_register_f90 ( mu0 ) CALL rsl_register_f90 ( mudf ) CALL rsl_register_f90 ( tke_1 ) CALL rsl_register_f90 ( tke_2 ) CALL rsl_register_f90 ( p ) CALL rsl_register_f90 ( al ) CALL rsl_register_f90 ( alt ) CALL rsl_register_f90 ( alb ) CALL rsl_register_f90 ( zx ) CALL rsl_register_f90 ( zy ) CALL rsl_register_f90 ( rdz ) CALL rsl_register_f90 ( rdzw ) CALL rsl_register_f90 ( pb ) CALL rsl_register_f90 ( z ) CALL rsl_register_f90 ( q2 ) CALL rsl_register_f90 ( t2 ) CALL rsl_register_f90 ( th2 ) CALL rsl_register_f90 ( u10 ) CALL rsl_register_f90 ( v10 ) CALL rsl_register_f90 ( imask ) IF(1+0.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+0) ) IF(1+1.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+1) ) IF(1+2.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+2) ) IF(1+3.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+3) ) IF(1+4.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+4) ) IF(1+5.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+5) ) IF(1+6.LE.num_moist)CALL rsl_register_f90 ( moist_1 (grid%sm31,grid%sm32,grid%sm33,1+6) ) IF(1+0.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+0) ) IF(1+1.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+1) ) IF(1+2.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+2) ) IF(1+3.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+3) ) IF(1+4.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+4) ) IF(1+5.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+5) ) IF(1+6.LE.num_moist)CALL rsl_register_f90 ( moist_2 (grid%sm31,grid%sm32,grid%sm33,1+6) ) IF(1+0.LE.num_chem)CALL rsl_register_f90 ( chem_1 (grid%sm31,grid%sm32,grid%sm33,1+0) ) IF(1+0.LE.num_chem)CALL rsl_register_f90 ( chem_2 (grid%sm31,grid%sm32,grid%sm33,1+0) ) CALL rsl_register_f90 ( sm000010 ) CALL rsl_register_f90 ( sm010040 ) CALL rsl_register_f90 ( sm040100 ) CALL rsl_register_f90 ( sm100200 ) CALL rsl_register_f90 ( sm010200 ) CALL rsl_register_f90 ( soilm000 ) CALL rsl_register_f90 ( soilm005 ) CALL rsl_register_f90 ( soilm020 ) CALL rsl_register_f90 ( soilm040 ) CALL rsl_register_f90 ( soilm160 ) CALL rsl_register_f90 ( soilm300 ) CALL rsl_register_f90 ( sw000010 ) CALL rsl_register_f90 ( sw010040 ) CALL rsl_register_f90 ( sw040100 ) CALL rsl_register_f90 ( sw100200 ) CALL rsl_register_f90 ( sw010200 ) CALL rsl_register_f90 ( soilw000 ) CALL rsl_register_f90 ( soilw005 ) CALL rsl_register_f90 ( soilw020 ) CALL rsl_register_f90 ( soilw040 ) CALL rsl_register_f90 ( soilw160 ) CALL rsl_register_f90 ( soilw300 ) CALL rsl_register_f90 ( st000010 ) CALL rsl_register_f90 ( st010040 ) CALL rsl_register_f90 ( st040100 ) CALL rsl_register_f90 ( st100200 ) CALL rsl_register_f90 ( st010200 ) CALL rsl_register_f90 ( soilt000 ) CALL rsl_register_f90 ( soilt005 ) CALL rsl_register_f90 ( soilt020 ) CALL rsl_register_f90 ( soilt040 ) CALL rsl_register_f90 ( soilt160 ) CALL rsl_register_f90 ( soilt300 ) CALL rsl_register_f90 ( landmask ) CALL rsl_register_f90 ( topostdv ) CALL rsl_register_f90 ( toposlpx ) CALL rsl_register_f90 ( toposlpy ) CALL rsl_register_f90 ( shdmax ) CALL rsl_register_f90 ( shdmin ) CALL rsl_register_f90 ( snoalb ) CALL rsl_register_f90 ( slopecat ) CALL rsl_register_f90 ( toposoil ) CALL rsl_register_f90 ( landusef ) CALL rsl_register_f90 ( soilctop ) CALL rsl_register_f90 ( soilcbot ) CALL rsl_register_f90 ( soilcat ) CALL rsl_register_f90 ( vegcat ) CALL rsl_register_f90 ( tslb ) CALL rsl_register_f90 ( smois ) CALL rsl_register_f90 ( sh2o ) CALL rsl_register_f90 ( xice ) CALL rsl_register_f90 ( smstav ) CALL rsl_register_f90 ( smstot ) CALL rsl_register_f90 ( sfcrunoff ) CALL rsl_register_f90 ( udrunoff ) CALL rsl_register_f90 ( ivgtyp ) CALL rsl_register_f90 ( isltyp ) CALL rsl_register_f90 ( vegfra ) CALL rsl_register_f90 ( sfcevp ) CALL rsl_register_f90 ( grdflx ) CALL rsl_register_f90 ( sfcexc ) CALL rsl_register_f90 ( acsnow ) CALL rsl_register_f90 ( acsnom ) CALL rsl_register_f90 ( snow ) CALL rsl_register_f90 ( snowh ) CALL rsl_register_f90 ( canwat ) CALL rsl_register_f90 ( sst ) CALL rsl_register_f90 ( potevp ) CALL rsl_register_f90 ( snopcx ) CALL rsl_register_f90 ( soiltb ) CALL rsl_register_f90 ( tke_myj ) CALL rsl_register_f90 ( ct ) CALL rsl_register_f90 ( thz0 ) CALL rsl_register_f90 ( z0 ) CALL rsl_register_f90 ( qz0 ) CALL rsl_register_f90 ( uz0 ) CALL rsl_register_f90 ( vz0 ) CALL rsl_register_f90 ( qsfc ) CALL rsl_register_f90 ( akhs ) CALL rsl_register_f90 ( akms ) CALL rsl_register_f90 ( kpbl ) CALL rsl_register_f90 ( htop ) CALL rsl_register_f90 ( hbot ) CALL rsl_register_f90 ( cuppt ) CALL rsl_register_f90 ( totswdn ) CALL rsl_register_f90 ( totlwdn ) CALL rsl_register_f90 ( rswtoa ) CALL rsl_register_f90 ( rlwtoa ) CALL rsl_register_f90 ( czmean ) CALL rsl_register_f90 ( cfracl ) CALL rsl_register_f90 ( cfracm ) CALL rsl_register_f90 ( cfrach ) CALL rsl_register_f90 ( acfrst ) CALL rsl_register_f90 ( ncfrst ) CALL rsl_register_f90 ( acfrcv ) CALL rsl_register_f90 ( ncfrcv ) CALL rsl_register_f90 ( t0eta ) CALL rsl_register_f90 ( q0eta ) CALL rsl_register_f90 ( p0eta ) CALL rsl_register_f90 ( f_ice_phy ) CALL rsl_register_f90 ( f_rain_phy ) CALL rsl_register_f90 ( f_rimef_phy ) CALL rsl_register_f90 ( h_diabatic ) CALL rsl_register_f90 ( msft ) CALL rsl_register_f90 ( msfu ) CALL rsl_register_f90 ( msfv ) CALL rsl_register_f90 ( f ) CALL rsl_register_f90 ( e ) CALL rsl_register_f90 ( sina ) CALL rsl_register_f90 ( cosa ) CALL rsl_register_f90 ( ht ) CALL rsl_register_f90 ( ht_fine ) CALL rsl_register_f90 ( tsk ) CALL rsl_register_f90 ( rthcuten ) CALL rsl_register_f90 ( rqvcuten ) CALL rsl_register_f90 ( rqrcuten ) CALL rsl_register_f90 ( rqccuten ) CALL rsl_register_f90 ( rqscuten ) CALL rsl_register_f90 ( rqicuten ) CALL rsl_register_f90 ( w0avg ) CALL rsl_register_f90 ( rainc ) CALL rsl_register_f90 ( rainnc ) CALL rsl_register_f90 ( raincv ) CALL rsl_register_f90 ( rainncv ) CALL rsl_register_f90 ( rainbl ) CALL rsl_register_f90 ( nca ) CALL rsl_register_f90 ( lowlyr ) CALL rsl_register_f90 ( rthraten ) CALL rsl_register_f90 ( rthratenlw ) CALL rsl_register_f90 ( rthratensw ) CALL rsl_register_f90 ( cldfra ) CALL rsl_register_f90 ( gsw ) CALL rsl_register_f90 ( glw ) CALL rsl_register_f90 ( xlat ) CALL rsl_register_f90 ( xlong ) CALL rsl_register_f90 ( albedo ) CALL rsl_register_f90 ( albbck ) CALL rsl_register_f90 ( emiss ) CALL rsl_register_f90 ( lu_index ) CALL rsl_register_f90 ( cldefi ) CALL rsl_register_f90 ( rublten ) CALL rsl_register_f90 ( rvblten ) CALL rsl_register_f90 ( rthblten ) CALL rsl_register_f90 ( rqvblten ) CALL rsl_register_f90 ( rqcblten ) CALL rsl_register_f90 ( rqiblten ) CALL rsl_register_f90 ( tmn ) CALL rsl_register_f90 ( xland ) CALL rsl_register_f90 ( znt ) CALL rsl_register_f90 ( ust ) CALL rsl_register_f90 ( mol ) CALL rsl_register_f90 ( pblh ) CALL rsl_register_f90 ( capg ) CALL rsl_register_f90 ( thc ) CALL rsl_register_f90 ( hfx ) CALL rsl_register_f90 ( qfx ) CALL rsl_register_f90 ( lh ) CALL rsl_register_f90 ( snowc ) CALL rsl_register_f90 ( mavail ) CALL rsl_register_f90 ( tkesfcf ) CALL rsl_register_f90 ( taucldi ) CALL rsl_register_f90 ( taucldc ) CALL rsl_register_f90 ( defor11 ) CALL rsl_register_f90 ( defor22 ) CALL rsl_register_f90 ( defor12 ) CALL rsl_register_f90 ( defor33 ) CALL rsl_register_f90 ( defor13 ) CALL rsl_register_f90 ( defor23 ) CALL rsl_register_f90 ( xkmv ) CALL rsl_register_f90 ( xkmh ) CALL rsl_register_f90 ( xkmhd ) CALL rsl_register_f90 ( xkhv ) CALL rsl_register_f90 ( xkhh ) CALL rsl_register_f90 ( div ) CALL rsl_register_f90 ( bn2 ) #ifdef REGISTER_I1 CALL rsl_register_f90 ( ru_m ) CALL rsl_register_f90 ( ru_tend ) CALL rsl_register_f90 ( u_save ) CALL rsl_register_f90 ( rv_m ) CALL rsl_register_f90 ( rv_tend ) CALL rsl_register_f90 ( v_save ) CALL rsl_register_f90 ( t_save ) CALL rsl_register_f90 ( muu ) CALL rsl_register_f90 ( muv ) CALL rsl_register_f90 ( mut ) CALL rsl_register_f90 ( muts ) #endif CALL rsl_end_register_f90 !ENDOFREGISTRYGENERATEDINCLUDE